(define-record-type new-mutex
  (make-new-mutex mut log number owner-digest)
  new-mutex?
  (mut get-mutex)
  (log get-log set-log!)
  (number get-number)
  (owner-digest get-owner-digest set-owner-digest!))